home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs17.d81 / fgm6demo.sda / DEMO PGM CHECKER (.txt) < prev    next >
Commodore BASIC  |  2009-10-10  |  2KB  |  48 lines
  1. 2 REM "FGM.6.0 DEMO PGM CHECKER.Z
  2. 4 [151]55,0:[151]56,30:[156]:[151]53281,6
  3. 6 [153]"LOAD","CMDCMDCMDASCCHR$(null) V6 STR$VAL(null)(null) (null)(null)(null)CHR$(null)ATN(null) LENLEFT$VALLEN(null)VAL(null)":[141]56
  4. 8 [153]" STR$OES CHECKSUM OF ALL VITAL":[153]" PROGRAM FILES ON THE ASCCHR$(null) DISK."
  5. 10 [153]" (null)UT ASCCHR$(null) PROGRAMWAIT DISK IN DRIVE 8":[153]" AND PRESS (null)VAL(null)(null)(null)(null)."
  6. 12 [151]198,0:[146]198,1
  7. 14 [153]"ASCRIGHT$(null)VALWAIT      (null)RIGHT$(null)VALWAIT   VAL(null)(null)WAIT     SQR(null)(null)(null)WAIT"
  8. 16 [129]L[178]01[164]24[169]3:[135]F$,C1,C2:SL[178].:SH[178]32:F$[178]"ASCCHR$(null)"[170]F$[170]"*"
  9. 17 [139]L[178]1[167]F$[178]"FGM V6*"
  10. 19 [153]F$;:[143]:C1;C2:NEXT:END
  11. 20 [158]49232:[159]3,8,0,F$:[151]157,0:[151]185,0:[151]780,0
  12. 22 [151]781,SL:[151]782,SH:[158]65493:[160]3
  13. 24 EL[178][194](174):EH[178][194](175):ED[178]EL[170]256[172]EH:[151]253,EL:[151]254,EH
  14. 26 [159]1,8,15:[132]1,E,B$,C,D:[152]1,"UI":[160]1:[139]E[177]19[167][153]E;B$,F$:ER[178]ER[170]1:[137]50
  15. 28 [153][163]9);ED[171]8192;:[158]49152:D1[178][194](820)
  16. 30 D2[178]([194](821)[170]256[172][194](822))[170](65536[172][194](823))[170]983040[172][194](824)
  17. 32 [153][163]16);D1;[163]22);D2;:[139]C1[178]D1[167][139]C2[178]D2[167][153]" (null)(null)";
  18. 34 [153]:[139]C1[179][177]D1[167][153]"VAL(null)(null) ERRORWAIT:"F$
  19. 36 [139]C2[179][177]D2[167][153]"SQR(null)(null)(null) ERRORWAIT:"F$
  20. 38 [139]C1[179][177]D1[176]C2[179][177]D2[167]ER[178]ER[170]1
  21. 40 [137]50:[143] PRINTER OUTPUT
  22. 42 [159]4,4,7:[152]4,F$;[194](820);
  23. 44 [152]4,([194](821)[170]256[172][194](822))[170](65536[172][194](823))[170]983040[172][194](824)
  24. 46 [160]4
  25. 48 [143]  ?PEEK(251)+256*PEEK(252)
  26. 50 [130]L
  27. 52 [153]" ERRORS"ER;:[139]ER[178].[167][153]" ATNLL VITAL FILES ARE (null)(null)."
  28. 53 [153]:[153],"(null)VAL(null)VAL(null) LEN(null)(null)(null)(null)(null)VAL(null) PEEKVALASC(null)(null)VAL":[153],"(null)(null)ATNSTR$RIGHT$(null)CHR$ ATN(null)(null)(null)LEFT$VAL(null) (null)(null)(null)CHR$(null)ATN(null)!"
  29. 54 [151]55,0:[151]56,160:[156]:[128]
  30. 56 X[178]49152:FF[178]255
  31. 58 [135]Y:[151]X,Y:X[178]X[170]1:[139]Y[179]FF[167]58
  32. 60 [142]
  33. 62 [131] 160,5,169,0,153,51,3,136,208,250,234,133,251,169,32,133
  34. 64 [131] 252,160,0,177,251,240,33,72,77,52,3,141,52,3,104,24
  35. 66 [131] 109,53,3,141,53,3,144,16,238,54,3,141,32,208,208,8
  36. 68 [131] 238,55,3,208,3,238,56,3,136,208,216,230,251,208,2,230
  37. 70 [131] 252,165,251,197,253,208,202,165,252,197,254,208,196,96,234,234
  38. 71 [131] 169,0,133,251,169,32,133,252,162,68,160,0,169,0,145,251
  39. 72 [131] 200,208,251,230,252,202,208,242,96,234,255
  40. 74 [131]"FGM V6 ",040,23098470
  41. 75 [131]".PEEKLEN",056,20262980
  42. 76 [131]".(null)(null)",199,33700861
  43. 78 [131]".(null)(null)",145,15694085
  44. 80 [131]".(null)(null)",222,1372898
  45. 82 [131]".STR$0",239,21511491
  46. 84 [131]".CO",080,13460320
  47. 90 [131]"DPEEK(null)",210,25730340
  48.